home *** CD-ROM | disk | FTP | other *** search
MacBinary | 1989-10-01 | 14.1 KB | [ TEXT/MPS ]
open in: MacOS 8.1
extracted
|
Win98
extracted
|
DOS
extracted
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary ).
Confidence Program Detection Match Type Support
66%
dexvert
ZX81 Sinclair BASIC (image/sinclairBASIC)
ext
Supported
10%
dexvert
MacBinary (archive/macBinary)
fallback
Supported
1%
dexvert
Text File (text/txt)
fallback
Supported
100%
file
MacBinary II, inited, Sun Oct 1 00:00:00 1989, modified Sun Oct 1 00:00:00 1989, creator 'MPS ', type ASCII, 13932 bytes "UTransformer.inc1.p" , at 0x36ec 362 bytes resource
default (weak)
99%
file
data
default
74%
TrID
Macintosh plain text (MacBinary)
default
25%
TrID
MacBinary 2
default (weak)
100%
siegfried
fmt/1762 MacBinary (II)
default
100%
lsar
MacBinary
default
id metadata key value macFileType [ TEXT] macFileCreator [ MPS ]
hex view +--------+-------------------------+-------------------------+--------+--------+ |00000000| 00 13 55 54 72 61 6e 73 | 66 6f 72 6d 65 72 2e 69 |..UTrans|former.i| |00000010| 6e 63 31 2e 70 00 00 00 | 00 00 00 00 00 00 00 00 |nc1.p...|........| |00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......| |00000050| 00 00 00 00 00 36 6c 00 | 00 01 6a a1 4b 3c 40 a1 |.....6l.|..j.K<@.| |00000060| 4b 3c 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K<@.....|........| |00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 df 10 00 00 |........|........| |00000080| 7b 5b 6a 3d 32 30 2f 35 | 37 2f 31 24 5d 7d 0d 7b |{[j=20/5|7/1$]}.{| |00000090| 5b 66 2d 5d 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |[f-]}.{-|--------| |000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000000e0| 2d 2d 2d 2d 2d 0d 23 0d | 23 09 41 70 70 6c 65 20 |-----.#.|#.Apple | |000000f0| 4d 61 63 69 6e 74 6f 73 | 68 20 44 65 76 65 6c 6f |Macintos|h Develo| |00000100| 70 65 72 20 54 65 63 68 | 6e 69 63 61 6c 20 53 75 |per Tech|nical Su| |00000110| 70 70 6f 72 74 0d 23 0d | 23 09 42 69 74 4d 61 70 |pport.#.|#.BitMap| |00000120| 20 54 72 61 6e 73 66 6f | 72 6d 65 72 0d 23 0d 23 | Transfo|rmer.#.#| |00000130| 09 55 54 72 61 6e 73 66 | 6f 72 6d 65 72 2e 69 6e |.UTransf|ormer.in| |00000140| 63 31 2e 70 20 2d 09 50 | 61 73 63 61 6c 20 53 6f |c1.p -.P|ascal So| |00000150| 75 72 63 65 0d 23 0d 23 | 09 43 6f 70 79 72 69 67 |urce.#.#|.Copyrig| |00000160| 68 74 20 a9 20 31 39 38 | 39 20 41 70 70 6c 65 20 |ht . 198|9 Apple | |00000170| 43 6f 6d 70 75 74 65 72 | 2c 20 49 6e 63 2e 0d 23 |Computer|, Inc..#| |00000180| 09 41 6c 6c 20 72 69 67 | 68 74 73 20 72 65 73 65 |.All rig|hts rese| |00000190| 72 76 65 64 2e 0d 23 0d | 23 09 56 65 72 73 69 6f |rved..#.|#.Versio| |000001a0| 6e 73 3a 0d 23 09 09 09 | 09 31 2e 30 20 09 09 09 |ns:.#...|.1.0 ...| |000001b0| 09 09 09 31 30 2f 38 39 | 0d 23 0d 23 09 43 6f 6d |...10/89|.#.#.Com| |000001c0| 70 6f 6e 65 6e 74 73 3a | 0d 23 09 09 09 09 4d 54 |ponents:|.#....MT| |000001d0| 72 61 6e 73 66 6f 72 6d | 65 72 2e 70 09 09 09 09 |ransform|er.p....| |000001e0| 4f 63 74 6f 62 65 72 20 | 31 2c 20 31 39 38 39 0d |October |1, 1989.| |000001f0| 23 09 09 09 09 55 54 72 | 61 6e 73 66 6f 72 6d 65 |#....UTr|ansforme| |00000200| 72 2e 70 09 09 09 09 4f | 63 74 6f 62 65 72 20 31 |r.p....O|ctober 1| |00000210| 2c 20 31 39 38 39 0d 23 | 09 09 09 09 55 54 72 61 |, 1989.#|....UTra| |00000220| 6e 73 66 6f 72 6d 65 72 | 2e 69 6e 63 31 2e 70 20 |nsformer|.inc1.p | |00000230| 09 09 4f 63 74 6f 62 65 | 72 20 31 2c 20 31 39 38 |..Octobe|r 1, 198| |00000240| 39 0d 23 09 09 09 09 54 | 72 61 6e 73 66 6f 72 6d |9.#....T|ransform| |00000250| 65 72 2e 63 09 09 09 09 | 4f 63 74 6f 62 65 72 20 |er.c....|October | |00000260| 31 2c 20 31 39 38 39 0d | 23 09 09 09 09 54 72 61 |1, 1989.|#....Tra| |00000270| 6e 73 66 6f 72 6d 65 72 | 2e 72 09 09 09 09 4f 63 |nsformer|.r....Oc| |00000280| 74 6f 62 65 72 20 31 2c | 20 31 39 38 39 0d 23 09 |tober 1,| 1989.#.| |00000290| 09 09 09 54 72 61 6e 73 | 66 6f 72 6d 65 72 2e 4d |...Trans|former.M| |000002a0| 41 4d 61 6b 65 09 09 09 | 4f 63 74 6f 62 65 72 20 |AMake...|October | |000002b0| 31 2c 20 31 39 38 39 0d | 23 09 09 09 09 50 72 6f |1, 1989.|#....Pro| |000002c0| 6a 49 6e 69 74 09 09 09 | 09 09 4f 63 74 6f 62 65 |jInit...|..Octobe| |000002d0| 72 20 31 2c 20 31 39 38 | 39 0d 23 09 09 09 09 54 |r 1, 198|9.#....T| |000002e0| 68 65 20 42 69 74 4d 61 | 70 20 54 72 61 6e 73 6d |he BitMa|p Transm| |000002f0| 6f 67 72 69 66 69 65 72 | 09 4f 63 74 6f 62 65 72 |ogrifier|.October| |00000300| 20 31 2c 20 31 39 38 39 | 0d 23 0d 23 09 52 65 71 | 1, 1989|.#.#.Req| |00000310| 75 69 72 65 6d 65 6e 74 | 73 3a 0d 23 09 09 09 09 |uirement|s:.#....| |00000320| 4d 61 63 41 70 70 a8 20 | 32 2e 30 a7 39 09 09 09 |MacApp. |2.0.9...| |00000330| 09 4a 75 6c 79 20 31 30 | 2c 20 31 39 38 39 0d 23 |.July 10|, 1989.#| |00000340| 0d 23 20 22 54 72 61 6e | 73 66 6f 72 6d 65 72 73 |.# "Tran|sformers| |00000350| 22 20 69 73 20 61 20 73 | 61 6d 70 6c 65 20 70 72 |" is a s|ample pr| |00000360| 6f 67 72 61 6d 20 74 68 | 61 74 20 64 65 6d 6f 6e |ogram th|at demon| |00000370| 73 74 72 61 74 65 73 20 | 68 6f 77 20 74 6f 20 74 |strates |how to t| |00000380| 72 61 6e 73 6c 61 74 65 | 2c 0d 23 20 72 6f 74 61 |ranslate|,.# rota| |00000390| 74 65 2c 20 61 6e 64 20 | 73 63 61 6c 65 20 62 69 |te, and |scale bi| |000003a0| 74 6d 61 70 73 2e 20 49 | 74 20 75 73 65 73 20 61 |tmaps. I|t uses a| |000003b0| 20 4d 61 63 41 70 70 20 | 73 68 65 6c 6c 20 74 6f | MacApp |shell to| |000003c0| 20 6f 70 65 6e 20 66 69 | 6c 65 2c 20 6f 70 65 6e | open fi|le, open| |000003d0| 0d 23 20 77 69 6e 64 6f | 77 73 2c 20 61 6e 64 20 |.# windo|ws, and | |000003e0| 68 61 6e 64 6c 65 20 6d | 65 6e 75 73 2c 20 62 75 |handle m|enus, bu| |000003f0| 74 20 74 68 65 20 63 6f | 72 65 20 72 6f 75 74 69 |t the co|re routi| |00000400| 6e 65 20 69 73 20 77 72 | 69 74 74 65 6e 20 69 6e |ne is wr|itten in| |00000410| 20 76 61 6e 69 6c 6c 61 | 20 43 2e 0d 23 0d 2d 2d | vanilla| C..#.--| |00000420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 7b 5b |--------|----}.{[| |00000470| 66 2b 5d 7d 0d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |f+]}..{-|--------| |00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000004a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000004d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 7d 0d 7b 20 47 20 4c |--------|-}.{ G L| |000004e0| 20 4f 20 42 20 41 20 4c | 09 56 20 41 20 52 20 49 | O B A L|.V A R I| |000004f0| 20 41 20 42 20 4c 20 45 | 20 53 20 7d 0d 7b 2d 2d | A B L E| S }.{--| |00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000560| 7d 0d 0d 56 41 52 0d 09 | 67 52 6f 74 61 74 69 6f |}..VAR..|gRotatio| |00000570| 6e 09 09 20 20 20 3a 20 | 49 4e 54 45 47 45 52 3b |n.. : |INTEGER;| |00000580| 0d 09 67 43 65 6e 74 65 | 72 20 09 09 20 20 20 3a |..gCente|r .. :| |00000590| 20 50 6f 69 6e 74 3b 0d | 09 67 44 65 73 74 69 6e | Point;.|.gDestin| |000005a0| 61 74 69 6f 6e 09 20 20 | 20 3a 20 50 6f 69 6e 74 |ation. | : Point| |000005b0| 3b 0d 09 67 53 63 61 6c | 65 58 20 09 09 20 20 20 |;..gScal|eX .. | |000005c0| 3a 20 45 78 74 65 6e 64 | 65 64 3b 0d 09 67 53 63 |: Extend|ed;..gSc| |000005d0| 61 6c 65 59 20 09 09 20 | 20 20 3a 20 45 78 74 65 |aleY .. | : Exte| |000005e0| 6e 64 65 64 3b 0d 0d 7b | 2d 2d 2d 2d 2d 2d 2d 2d |nded;..{|--------| |000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 09 7b 20 45 |--------|--}..{ E| |00000650| 20 58 20 54 20 45 20 52 | 20 4e 20 41 20 4c 09 52 | X T E R| N A L.R| |00000660| 20 4f 20 55 20 54 20 49 | 20 4e 20 45 20 53 20 7d | O U T I| N E S }| |00000670| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------| |00000680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000006d0| 2d 2d 2d 2d 7d 0d 0d 09 | 7b 20 46 72 6f 6d 20 54 |----}...|{ From T| |000006e0| 72 61 6e 73 66 6f 72 6d | 65 72 2e 63 20 7d 0d 0d |ransform|er.c }..| |000006f0| 50 52 4f 43 45 44 55 52 | 45 20 47 65 74 54 68 65 |PROCEDUR|E GetThe| |00000700| 50 69 63 74 75 72 65 28 | 61 52 65 66 4e 75 6d 3a |Picture(|aRefNum:| |00000710| 20 49 4e 54 45 47 45 52 | 3b 20 64 61 74 61 3a 20 | INTEGER|; data: | |00000720| 50 74 72 29 3b 0d 09 45 | 58 54 45 52 4e 41 4c 3b |Ptr);..E|XTERNAL;| |00000730| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 44 6f 54 72 |..PROCED|URE DoTr| |00000740| 61 6e 73 66 6f 72 6d 28 | 73 6f 75 72 63 65 42 4d |ansform(|sourceBM| |00000750| 2c 20 64 65 73 74 42 4d | 3a 20 42 69 74 4d 61 70 |, destBM|: BitMap| |00000760| 3b 20 63 65 6e 74 65 72 | 2c 20 64 65 73 74 69 6e |; center|, destin| |00000770| 61 74 69 6f 6e 3a 20 50 | 6f 69 6e 74 3b 20 72 6f |ation: P|oint; ro| |00000780| 74 61 74 69 6f 6e 3a 20 | 49 4e 54 45 47 45 52 3b |tation: |INTEGER;| |00000790| 20 53 78 2c 0d 09 09 09 | 09 09 20 20 53 79 3a 20 | Sx,....|.. Sy: | |000007a0| 45 78 74 65 6e 64 65 64 | 39 36 29 3b 0d 09 45 58 |Extended|96);..EX| |000007b0| 54 45 52 4e 41 4c 3b 0d | 0d 7b 2d 2d 2d 2d 2d 2d |TERNAL;.|.{------| |000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 7b 20 |--------|----}.{ | |00000820| 47 20 4c 20 4f 20 42 20 | 41 20 4c 20 53 20 7d 0d |G L O B |A L S }.| |00000830| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------| |00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000890| 2d 2d 2d 7d 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |---}..PR|OCEDURE | |000008a0| 43 6c 65 61 72 42 69 74 | 4d 61 70 28 61 42 69 74 |ClearBit|Map(aBit| |000008b0| 4d 61 70 3a 20 42 69 74 | 4d 61 70 29 3b 0d 0d 09 |Map: Bit|Map);...| |000008c0| 56 41 52 0d 09 09 6f 6c | 64 50 6f 72 74 20 09 09 |VAR...ol|dPort ..| |000008d0| 20 20 20 3a 20 47 72 61 | 66 50 74 72 3b 0d 09 09 | : Gra|fPtr;...| |000008e0| 6f 6c 64 42 69 74 73 20 | 09 09 20 20 20 3a 20 42 |oldBits |.. : B| |000008f0| 69 74 4d 61 70 3b 0d 09 | 09 74 65 6d 70 50 6f 72 |itMap;..|.tempPor| |00000900| 74 09 09 20 20 20 3a 20 | 47 72 61 66 50 6f 72 74 |t.. : |GrafPort| |00000910| 3b 0d 0d 09 42 45 47 49 | 4e 0d 09 09 47 65 74 50 |;...BEGI|N...GetP| |00000920| 6f 72 74 28 6f 6c 64 50 | 6f 72 74 29 3b 0d 09 09 |ort(oldP|ort);...| |00000930| 4f 70 65 6e 50 6f 72 74 | 28 40 74 65 6d 70 50 6f |OpenPort|(@tempPo| |00000940| 72 74 29 3b 0d 09 09 6f | 6c 64 42 69 74 73 20 3a |rt);...o|ldBits :| |00000950| 3d 20 74 65 6d 70 50 6f | 72 74 2e 70 6f 72 74 42 |= tempPo|rt.portB| |00000960| 69 74 73 3b 0d 09 09 53 | 65 74 50 6f 72 74 42 69 |its;...S|etPortBi| |00000970| 74 73 28 61 42 69 74 4d | 61 70 29 3b 0d 09 09 57 |ts(aBitM|ap);...W| |00000980| 49 54 48 20 74 65 6d 70 | 50 6f 72 74 20 44 4f 20 |ITH temp|Port DO | |00000990| 42 45 47 49 4e 0d 09 09 | 09 70 6f 72 74 52 65 63 |BEGIN...|.portRec| |000009a0| 74 20 3a 3d 20 70 6f 72 | 74 42 69 74 73 2e 62 6f |t := por|tBits.bo| |000009b0| 75 6e 64 73 3b 0d 09 09 | 09 43 6c 69 70 52 65 63 |unds;...|.ClipRec| |000009c0| 74 28 70 6f 72 74 52 65 | 63 74 29 3b 0d 09 09 09 |t(portRe|ct);....| |000009d0| 43 6f 70 79 52 67 6e 28 | 63 6c 69 70 52 67 6e 2c |CopyRgn(|clipRgn,| |000009e0| 20 76 69 73 52 67 6e 29 | 3b 0d 09 09 09 45 72 61 | visRgn)|;....Era| |000009f0| 73 65 52 65 63 74 28 70 | 6f 72 74 52 65 63 74 29 |seRect(p|ortRect)| |00000a00| 3b 0d 09 09 45 4e 44 3b | 0d 09 09 53 65 74 50 6f |;...END;|...SetPo| |00000a10| 72 74 42 69 74 73 28 6f | 6c 64 42 69 74 73 29 3b |rtBits(o|ldBits);| |00000a20| 0d 09 09 43 6c 6f 73 65 | 50 6f 72 74 28 40 74 65 |...Close|Port(@te| |00000a30| 6d 70 50 6f 72 74 29 3b | 0d 09 09 53 65 74 50 6f |mpPort);|...SetPo| |00000a40| 72 74 28 6f 6c 64 50 6f | 72 74 29 3b 0d 09 45 4e |rt(oldPo|rt);..EN| |00000a50| 44 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |D;..{---|--------| |00000a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000ab0| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 7b 20 54 20 54 20 72 |-------}|.{ T T r| |00000ac0| 20 61 20 6e 20 73 20 66 | 20 6f 20 72 20 6d 20 65 | a n s f| o r m e| |00000ad0| 20 72 20 41 20 70 20 70 | 20 6c 20 69 20 63 20 61 | r A p p| l i c a| |00000ae0| 20 74 20 69 20 6f 20 6e | 20 7d 0d 7b 2d 2d 2d 2d | t i o n| }.{----| |00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.| |00000b50| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 54 72 61 6e |.PROCEDU|RE TTran| |00000b60| 73 66 6f 72 6d 65 72 41 | 70 70 6c 69 63 61 74 69 |sformerA|pplicati| |00000b70| 6f 6e 2e 49 54 72 61 6e | 73 66 6f 72 6d 65 72 41 |on.ITran|sformerA| |00000b80| 70 70 6c 69 63 61 74 69 | 6f 6e 28 69 74 73 4d 61 |pplicati|on(itsMa| |00000b90| 69 6e 46 69 6c 65 54 79 | 70 65 3a 20 4f 53 54 79 |inFileTy|pe: OSTy| |00000ba0| 70 65 29 3b 0d 0d 09 42 | 45 47 49 4e 0d 09 09 49 |pe);...B|EGIN...I| |00000bb0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 28 69 74 73 4d |Applicat|ion(itsM| |00000bc0| 61 69 6e 46 69 6c 65 54 | 79 70 65 29 3b 0d 0d 09 |ainFileT|ype);...| |00000bd0| 09 52 65 67 69 73 74 65 | 72 53 74 64 54 79 70 65 |.Registe|rStdType| |00000be0| 28 27 54 42 69 74 4d 61 | 70 56 69 65 77 27 2c 20 |('TBitMa|pView', | |00000bf0| 27 64 66 6c 74 27 29 3b | 20 09 09 7b 20 53 6f 20 |'dflt');| ..{ So | |00000c00| 6d 79 20 76 69 65 77 20 | 77 69 6c 6c 20 62 65 20 |my view |will be | |00000c10| 73 75 62 73 74 69 74 75 | 74 65 64 20 77 68 65 6e |substitu|ted when| |00000c20| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 20 |........|....... | |00000c30| 4d 61 63 41 70 70 a8 20 | 63 72 65 61 74 65 73 20 |MacApp. |creates | |00000c40| 74 68 65 20 22 64 65 66 | 61 75 6c 74 20 76 69 65 |the "def|ault vie| |00000c50| 77 22 20 7d 0d 0d 09 09 | 67 52 6f 74 61 74 69 6f |w" }....|gRotatio| |00000c60| 6e 20 3a 3d 20 30 3b 0d | 09 09 67 53 63 61 6c 65 |n := 0;.|..gScale| |00000c70| 58 20 3a 3d 20 31 3b 0d | 09 09 67 53 63 61 6c 65 |X := 1;.|..gScale| |00000c80| 59 20 3a 3d 20 31 3b 0d | 09 09 67 43 65 6e 74 65 |Y := 1;.|..gCente| |00000c90| 72 20 3a 3d 20 67 5a 65 | 72 6f 50 74 3b 0d 09 09 |r := gZe|roPt;...| |00000ca0| 67 44 65 73 74 69 6e 61 | 74 69 6f 6e 20 3a 3d 20 |gDestina|tion := | |00000cb0| 67 5a 65 72 6f 50 74 3b | 0d 0d 09 09 49 6e 69 74 |gZeroPt;|....Init| |00000cc0| 43 75 72 73 6f 72 43 74 | 6c 28 4e 49 4c 29 3b 20 |CursorCt|l(NIL); | |00000cd0| 09 09 09 09 09 09 09 7b | 20 55 73 65 20 74 68 65 |.......{| Use the| |00000ce0| 20 63 75 72 73 6f 72 20 | 64 61 74 61 20 69 6e 20 | cursor |data in | |00000cf0| 74 68 65 20 72 65 73 6f | 75 72 63 65 20 66 6f 72 |the reso|urce for| |00000d00| 6b 20 7d 0d 0d 09 09 49 | 46 20 67 44 65 61 64 53 |k }....I|F gDeadS| |00000d10| 74 72 69 70 53 75 70 70 | 72 65 73 73 69 6f 6e 20 |tripSupp|ression | |00000d20| 54 48 45 4e 20 42 45 47 | 49 4e 0d 09 09 09 49 46 |THEN BEG|IN....IF| |00000d30| 20 4d 65 6d 62 65 72 28 | 54 4f 62 6a 65 63 74 28 | Member(|TObject(| |00000d40| 4e 49 4c 29 2c 20 54 42 | 69 74 4d 61 70 56 69 65 |NIL), TB|itMapVie| |00000d50| 77 29 20 54 48 45 4e 3b | 0d 09 09 09 49 46 20 4d |w) THEN;|....IF M| |00000d60| 65 6d 62 65 72 28 54 4f | 62 6a 65 63 74 28 4e 49 |ember(TO|bject(NI| |00000d70| 4c 29 2c 20 54 45 78 74 | 4e 75 6d 62 65 72 54 65 |L), TExt|NumberTe| |00000d80| 78 74 29 20 54 48 45 4e | 3b 0d 09 09 45 4e 44 3b |xt) THEN|;...END;| |00000d90| 0d 09 45 4e 44 3b 0d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |..END;..|{-------| |00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 0d 46 55 |--------|---}..FU| |00000e00| 4e 43 54 49 4f 4e 20 54 | 54 72 61 6e 73 66 6f 72 |NCTION T|Transfor| |00000e10| 6d 65 72 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 41 |merAppli|cation.A| |00000e20| 6c 72 65 61 64 79 4f 70 | 65 6e 28 66 69 6c 65 4e |lreadyOp|en(fileN| |00000e30| 61 6d 65 3a 20 53 74 72 | 32 35 35 3b 0d 09 76 6f |ame: Str|255;..vo| |00000e40| 6c 52 65 66 6e 75 6d 3a | 20 49 4e 54 45 47 45 52 |lRefnum:| INTEGER| |00000e50| 29 3a 20 54 44 6f 63 75 | 6d 65 6e 74 3b 20 4f 56 |): TDocu|ment; OV| |00000e60| 45 52 52 49 44 45 3b 0d | 0d 09 42 45 47 49 4e 0d |ERRIDE;.|..BEGIN.| |00000e70| 09 09 41 6c 72 65 61 64 | 79 4f 70 65 6e 20 3a 3d |..Alread|yOpen :=| |00000e80| 20 4e 49 4c 3b 0d 09 45 | 4e 44 3b 0d 0d 7b 2d 2d | NIL;..E|ND;..{--| |00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000ef0| 7d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 54 54 72 61 |}..FUNCT|ION TTra| |00000f00| 6e 73 66 6f 72 6d 65 72 | 41 70 70 6c 69 63 61 74 |nsformer|Applicat| |00000f10| 69 6f 6e 2e 44 6f 4d 61 | 6b 65 44 6f 63 75 6d 65 |ion.DoMa|keDocume| |00000f20| 6e 74 28 69 74 73 43 6d | 64 4e 75 6d 62 65 72 3a |nt(itsCm|dNumber:| |00000f30| 20 43 6d 64 4e 75 6d 62 | 65 72 29 3a 20 54 44 6f | CmdNumb|er): TDo| |00000f40| 63 75 6d 65 6e 74 3b 0d | 0d 09 56 41 52 0d 09 09 |cument;.|..VAR...| |00000f50| 61 44 6f 63 75 6d 65 6e | 74 09 09 20 20 20 3a 20 |aDocumen|t.. : | |00000f60| 54 42 69 74 4d 61 70 44 | 6f 63 75 6d 65 6e 74 3b |TBitMapD|ocument;| |00000f70| 0d 0d 09 42 45 47 49 4e | 0d 09 09 7b 20 41 6c 6c |...BEGIN|...{ All| |00000f80| 6f 63 61 74 65 20 61 6e | 64 20 69 6e 69 74 69 61 |ocate an|d initia| |00000f90| 6c 69 7a 65 20 74 68 65 | 20 64 6f 63 75 6d 65 6e |lize the| documen| |00000fa0| 74 7d 0d 09 09 4e 45 57 | 28 61 44 6f 63 75 6d 65 |t}...NEW|(aDocume| |00000fb0| 6e 74 29 3b 0d 09 09 46 | 61 69 6c 4e 49 4c 28 61 |nt);...F|ailNIL(a| |00000fc0| 44 6f 63 75 6d 65 6e 74 | 29 3b 0d 0d 09 09 61 44 |Document|);....aD| |00000fd0| 6f 63 75 6d 65 6e 74 2e | 49 42 69 74 4d 61 70 44 |ocument.|IBitMapD| |00000fe0| 6f 63 75 6d 65 6e 74 3b | 0d 09 09 44 6f 4d 61 6b |ocument;|...DoMak| |00000ff0| 65 44 6f 63 75 6d 65 6e | 74 20 3a 3d 20 61 44 6f |eDocumen|t := aDo| |00001000| 63 75 6d 65 6e 74 3b 0d | 09 45 4e 44 3b 0d 0d 7b |cument;.|.END;..{| |00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001070| 2d 2d 7d 0d 0d 50 52 4f | 43 45 44 55 52 45 20 54 |--}..PRO|CEDURE T| |00001080| 54 72 61 6e 73 66 6f 72 | 6d 65 72 41 70 70 6c 69 |Transfor|merAppli| |00001090| 63 61 74 69 6f 6e 2e 48 | 61 6e 64 6c 65 46 69 6e |cation.H|andleFin| |000010a0| 64 65 72 52 65 71 75 65 | 73 74 3b 20 4f 56 45 52 |derReque|st; OVER| |000010b0| 52 49 44 45 3b 0d 0d 09 | 42 45 47 49 4e 0d 09 09 |RIDE;...|BEGIN...| |000010c0| 49 46 20 67 46 69 6c 65 | 43 6f 75 6e 74 20 3e 20 |IF gFile|Count > | |000010d0| 30 20 54 48 45 4e 0d 09 | 09 09 49 4e 48 45 52 49 |0 THEN..|..INHERI| |000010e0| 54 45 44 20 48 61 6e 64 | 6c 65 46 69 6e 64 65 72 |TED Hand|leFinder| |000010f0| 52 65 71 75 65 73 74 3b | 0d 09 45 4e 44 3b 0d 0d |Request;|..END;..| |00001100| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------| |00001110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001160| 2d 2d 2d 7d 0d 7b 20 54 | 20 42 20 69 20 74 20 4d |---}.{ T| B i t M| |00001170| 20 61 20 70 20 44 20 6f | 20 63 20 75 20 6d 20 65 | a p D o| c u m e| |00001180| 20 6e 20 74 20 7d 0d 7b | 2d 2d 2d 2d 2d 2d 2d 2d | n t }.{|--------| |00001190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000011a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000011b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000011d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000011e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 0d 50 52 4f |--------|--}..PRO| |000011f0| 43 45 44 55 52 45 20 54 | 42 69 74 4d 61 70 44 6f |CEDURE T|BitMapDo| |00001200| 63 75 6d 65 6e 74 2e 49 | 42 69 74 4d 61 70 44 6f |cument.I|BitMapDo| |00001210| 63 75 6d 65 6e 74 3b 0d | 0d 09 56 41 52 0d 09 09 |cument;.|..VAR...| |00001220| 66 69 09 09 09 09 20 20 | 20 3a 20 46 61 69 6c 49 |fi.... | : FailI| |00001230| 6e 66 6f 3b 0d 09 09 64 | 61 74 61 09 09 09 20 20 |nfo;...d|ata... | |00001240| 20 3a 20 50 74 72 3b 0d | 09 09 61 42 69 74 4d 61 | : Ptr;.|..aBitMa| |00001250| 70 20 09 09 20 20 20 3a | 20 42 69 74 4d 61 70 3b |p .. :| BitMap;| |00001260| 0d 09 09 6f 6c 64 50 65 | 72 6d 20 09 09 20 20 20 |...oldPe|rm .. | |00001270| 3a 20 42 6f 6f 6c 65 61 | 6e 3b 0d 09 09 62 6d 53 |: Boolea|n;...bmS| |00001280| 69 7a 65 09 09 09 20 20 | 20 3a 20 4c 4f 4e 47 49 |ize... | : LONGI| |00001290| 4e 54 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |NT;...PR|OCEDURE | |000012a0| 48 61 6e 64 6c 65 46 61 | 69 6c 75 72 65 28 65 72 |HandleFa|ilure(er| |000012b0| 72 6f 72 3a 20 4f 53 45 | 72 72 3b 20 6d 65 73 73 |ror: OSE|rr; mess| |000012c0| 61 67 65 3a 20 4c 4f 4e | 47 49 4e 54 29 3b 0d 0d |age: LON|GINT);..| |000012d0| 09 09 42 45 47 49 4e 0d | 09 09 09 46 72 65 65 3b |..BEGIN.|...Free;| |000012e0| 0d 09 09 45 4e 44 3b 0d | 0d 09 42 45 47 49 4e 0d |...END;.|..BEGIN.| |000012f0| 09 09 66 4f 72 69 67 42 | 69 74 4d 61 70 2e 62 61 |..fOrigB|itMap.ba| |00001300| 73 65 41 64 64 72 20 3a | 3d 20 4e 49 4c 3b 0d 09 |seAddr :|= NIL;..| |00001310| 09 49 44 6f 63 75 6d 65 | 6e 74 28 67 4d 61 69 6e |.IDocume|nt(gMain| |00001320| 46 69 6c 65 54 79 70 65 | 2c 20 6b 53 69 67 6e 61 |FileType|, kSigna| |00001330| 74 75 72 65 2c 20 6b 55 | 73 65 73 44 61 74 61 46 |ture, kU|sesDataF| |00001340| 6f 72 6b 2c 20 4e 4f 54 | 20 6b 55 73 65 73 52 73 |ork, NOT| kUsesRs| |00001350| 72 63 46 6f 72 6b 2c 20 | 4e 4f 54 20 6b 44 61 74 |rcFork, |NOT kDat| |00001360| 61 4f 70 65 6e 2c 0d 09 | 09 09 09 20 20 4e 4f 54 |aOpen,..|... NOT| |00001370| 20 6b 52 73 72 63 4f 70 | 65 6e 29 3b 0d 0d 09 09 | kRsrcOp|en);....| |00001380| 57 49 54 48 20 66 4f 72 | 69 67 42 69 74 4d 61 70 |WITH fOr|igBitMap| |00001390| 20 44 4f 20 42 45 47 49 | 4e 0d 09 09 09 72 6f 77 | DO BEGI|N....row| |000013a0| 42 79 74 65 73 20 3a 3d | 20 6b 52 6f 77 42 79 74 |Bytes :=| kRowByt| |000013b0| 65 73 3b 0d 09 09 09 57 | 49 54 48 20 62 6f 75 6e |es;....W|ITH boun| |000013c0| 64 73 20 44 4f 20 42 45 | 47 49 4e 0d 09 09 09 09 |ds DO BE|GIN.....| |000013d0| 74 6f 70 20 3a 3d 20 30 | 3b 0d 09 09 09 09 6c 65 |top := 0|;.....le| |000013e0| 66 74 20 3a 3d 20 30 3b | 0d 09 09 09 09 62 6f 74 |ft := 0;|.....bot| |000013f0| 74 6f 6d 20 3a 3d 20 6b | 48 65 69 67 68 74 3b 0d |tom := k|Height;.| |00001400| 09 09 09 09 72 69 67 68 | 74 20 3a 3d 20 6b 57 69 |....righ|t := kWi| |00001410| 64 74 68 3b 0d 09 09 09 | 09 62 6d 53 69 7a 65 20 |dth;....|.bmSize | |00001420| 3a 3d 20 4c 4f 4e 47 49 | 4e 54 28 72 6f 77 42 79 |:= LONGI|NT(rowBy| |00001430| 74 65 73 29 20 2a 20 62 | 6f 74 74 6f 6d 3b 0d 09 |tes) * b|ottom;..| |00001440| 09 09 45 4e 44 3b 0d 09 | 09 45 4e 44 3b 0d 0d 09 |..END;..|.END;...| |00001450| 09 43 61 74 63 68 46 61 | 69 6c 75 72 65 73 28 66 |.CatchFa|ilures(f| |00001460| 69 2c 20 48 61 6e 64 6c | 65 46 61 69 6c 75 72 65 |i, Handl|eFailure| |00001470| 29 3b 0d 0d 09 09 6f 6c | 64 50 65 72 6d 20 3a 3d |);....ol|dPerm :=| |00001480| 20 50 65 72 6d 41 6c 6c | 6f 63 61 74 69 6f 6e 28 | PermAll|ocation(| |00001490| 54 52 55 45 29 3b 0d 09 | 09 64 61 74 61 20 3a 3d |TRUE);..|.data :=| |000014a0| 20 4e 65 77 50 74 72 43 | 6c 65 61 72 28 62 6d 53 | NewPtrC|lear(bmS| |000014b0| 69 7a 65 29 3b 0d 09 09 | 6f 6c 64 50 65 72 6d 20 |ize);...|oldPerm | |000014c0| 3a 3d 20 50 65 72 6d 41 | 6c 6c 6f 63 61 74 69 6f |:= PermA|llocatio| |000014d0| 6e 28 6f 6c 64 50 65 72 | 6d 29 3b 0d 09 09 46 61 |n(oldPer|m);...Fa| |000014e0| 69 6c 4e 49 4c 28 64 61 | 74 61 29 3b 0d 09 09 66 |ilNIL(da|ta);...f| |000014f0| 4f 72 69 67 42 69 74 4d | 61 70 2e 62 61 73 65 41 |OrigBitM|ap.baseA| |00001500| 64 64 72 20 3a 3d 20 64 | 61 74 61 3b 0d 0d 09 09 |ddr := d|ata;....| |00001510| 53 75 63 63 65 73 73 28 | 66 69 29 3b 0d 09 45 4e |Success(|fi);..EN| |00001520| 44 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |D;..{---|--------| |00001530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001580| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 0d 50 52 4f 43 45 44 |-------}|..PROCED| |00001590| 55 52 45 20 54 42 69 74 | 4d 61 70 44 6f 63 75 6d |URE TBit|MapDocum| |000015a0| 65 6e 74 2e 46 72 65 65 | 3b 20 4f 56 45 52 52 49 |ent.Free|; OVERRI| |000015b0| 44 45 3b 0d 0d 09 42 45 | 47 49 4e 0d 09 09 44 69 |DE;...BE|GIN...Di| |000015c0| 73 70 6f 73 49 66 50 74 | 72 28 66 4f 72 69 67 42 |sposIfPt|r(fOrigB| |000015d0| 69 74 4d 61 70 2e 62 61 | 73 65 41 64 64 72 29 3b |itMap.ba|seAddr);| |000015e0| 0d 09 09 49 4e 48 45 52 | 49 54 45 44 20 46 72 65 |...INHER|ITED Fre| |000015f0| 65 3b 0d 09 45 4e 44 3b | 0d 0d 7b 2d 2d 2d 2d 2d |e;..END;|..{-----| |00001600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 0d |--------|-----}..| |00001660| 50 52 4f 43 45 44 55 52 | 45 20 54 42 69 74 4d 61 |PROCEDUR|E TBitMa| |00001670| 70 44 6f 63 75 6d 65 6e | 74 2e 43 6f 70 79 4f 72 |pDocumen|t.CopyOr| |00001680| 69 67 42 69 74 73 28 61 | 42 69 74 4d 61 70 3a 20 |igBits(a|BitMap: | |00001690| 42 69 74 4d 61 70 29 3b | 0d 0d 09 56 41 52 0d 09 |BitMap);|...VAR..| |000016a0| 09 73 6f 75 72 63 65 42 | 69 74 4d 61 70 09 20 20 |.sourceB|itMap. | |000016b0| 20 3a 20 42 69 74 4d 61 | 70 3b 0d 0d 09 42 45 47 | : BitMa|p;...BEG| |000016c0| 49 4e 0d 09 09 73 6f 75 | 72 63 65 42 69 74 4d 61 |IN...sou|rceBitMa| |000016d0| 70 20 3a 3d 20 66 4f 72 | 69 67 42 69 74 4d 61 70 |p := fOr|igBitMap| |000016e0| 3b 0d 09 09 43 6f 70 79 | 42 69 74 73 28 73 6f 75 |;...Copy|Bits(sou| |000016f0| 72 63 65 42 69 74 4d 61 | 70 2c 20 61 42 69 74 4d |rceBitMa|p, aBitM| |00001700| 61 70 2c 20 73 6f 75 72 | 63 65 42 69 74 4d 61 70 |ap, sour|ceBitMap| |00001710| 2e 62 6f 75 6e 64 73 2c | 20 73 6f 75 72 63 65 42 |.bounds,| sourceB| |00001720| 69 74 4d 61 70 2e 62 6f | 75 6e 64 73 2c 20 73 72 |itMap.bo|unds, sr| |00001730| 63 43 6f 70 79 2c 20 4e | 49 4c 29 3b 0d 09 45 4e |cCopy, N|IL);..EN| |00001740| 44 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |D;..{---|--------| |00001750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000017a0| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 0d 50 52 4f 43 45 44 |-------}|..PROCED| |000017b0| 55 52 45 20 54 42 69 74 | 4d 61 70 44 6f 63 75 6d |URE TBit|MapDocum| |000017c0| 65 6e 74 2e 44 6f 52 65 | 61 64 28 61 52 65 66 4e |ent.DoRe|ad(aRefN| |000017d0| 75 6d 3a 20 49 4e 54 45 | 47 45 52 3b 20 72 73 72 |um: INTE|GER; rsr| |000017e0| 63 45 78 69 73 74 73 2c | 20 66 6f 72 50 72 69 6e |cExists,| forPrin| |000017f0| 74 69 6e 67 3a 20 42 6f | 6f 6c 65 61 6e 29 3b 20 |ting: Bo|olean); | |00001800| 4f 56 45 52 52 49 44 45 | 3b 0d 0d 09 42 45 47 49 |OVERRIDE|;...BEGI| |00001810| 4e 0d 09 09 47 65 74 54 | 68 65 50 69 63 74 75 72 |N...GetT|hePictur| |00001820| 65 28 61 52 65 66 4e 75 | 6d 2c 20 66 4f 72 69 67 |e(aRefNu|m, fOrig| |00001830| 42 69 74 4d 61 70 2e 62 | 61 73 65 41 64 64 72 29 |BitMap.b|aseAddr)| |00001840| 3b 0d 09 45 4e 44 3b 0d | 0d 7b 2d 2d 2d 2d 2d 2d |;..END;.|.{------| |00001850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 0d 50 |--------|----}..P| |000018b0| 52 4f 43 45 44 55 52 45 | 20 54 42 69 74 4d 61 70 |ROCEDURE| TBitMap| |000018c0| 44 6f 63 75 6d 65 6e 74 | 2e 46 69 65 6c 64 73 28 |Document|.Fields(| |000018d0| 50 52 4f 43 45 44 55 52 | 45 20 44 6f 54 6f 46 69 |PROCEDUR|E DoToFi| |000018e0| 65 6c 64 28 66 69 65 6c | 64 4e 61 6d 65 3a 20 53 |eld(fiel|dName: S| |000018f0| 74 72 32 35 35 3b 20 66 | 69 65 6c 64 41 64 64 72 |tr255; f|ieldAddr| |00001900| 3a 20 50 74 72 3b 0d 09 | 09 09 09 09 09 09 09 09 |: Ptr;..|........| |00001910| 09 09 09 09 20 66 69 65 | 6c 64 54 79 70 65 3a 20 |.... fie|ldType: | |00001920| 49 4e 54 45 47 45 52 29 | 29 3b 20 4f 56 45 52 52 |INTEGER)|); OVERR| |00001930| 49 44 45 3b 0d 0d 09 42 | 45 47 49 4e 0d 09 09 44 |IDE;...B|EGIN...D| |00001940| 6f 54 6f 46 69 65 6c 64 | 28 27 54 42 69 74 4d 61 |oToField|('TBitMa| |00001950| 70 44 6f 63 75 6d 65 6e | 74 27 2c 20 4e 49 4c 2c |pDocumen|t', NIL,| |00001960| 20 62 43 6c 61 73 73 29 | 3b 0d 09 09 44 6f 54 6f | bClass)|;...DoTo| |00001970| 46 69 65 6c 64 28 27 66 | 4f 72 69 67 42 69 74 4d |Field('f|OrigBitM| |00001980| 61 70 27 2c 20 4e 49 4c | 2c 20 62 54 69 74 6c 65 |ap', NIL|, bTitle| |00001990| 29 3b 0d 09 09 44 6f 54 | 6f 46 69 65 6c 64 28 27 |);...DoT|oField('| |000019a0| 20 20 62 61 73 65 41 64 | 64 72 27 2c 20 40 66 4f | baseAd|dr', @fO| |000019b0| 72 69 67 42 69 74 4d 61 | 70 2e 62 61 73 65 41 64 |rigBitMa|p.baseAd| |000019c0| 64 72 2c 20 62 50 6f 69 | 6e 74 65 72 29 3b 0d 09 |dr, bPoi|nter);..| |000019d0| 09 44 6f 54 6f 46 69 65 | 6c 64 28 27 20 20 72 6f |.DoToFie|ld(' ro| |000019e0| 77 42 79 74 65 73 27 2c | 20 40 66 4f 72 69 67 42 |wBytes',| @fOrigB| |000019f0| 69 74 4d 61 70 2e 72 6f | 77 42 79 74 65 73 2c 20 |itMap.ro|wBytes, | |00001a00| 62 49 6e 74 65 67 65 72 | 29 3b 0d 09 09 44 6f 54 |bInteger|);...DoT| |00001a10| 6f 46 69 65 6c 64 28 27 | 20 20 62 6f 75 6e 64 73 |oField('| bounds| |00001a20| 27 2c 20 40 66 4f 72 69 | 67 42 69 74 4d 61 70 2e |', @fOri|gBitMap.| |00001a30| 62 6f 75 6e 64 73 2c 20 | 62 52 65 63 74 29 3b 0d |bounds, |bRect);.| |00001a40| 0d 09 09 49 4e 48 45 52 | 49 54 45 44 20 46 69 65 |...INHER|ITED Fie| |00001a50| 6c 64 73 28 44 6f 54 6f | 46 69 65 6c 64 29 3b 0d |lds(DoTo|Field);.| |00001a60| 09 45 4e 44 3b 0d 0d 7b | 2d 2d 2d 2d 2d 2d 2d 2d |.END;..{|--------| |00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 0d 50 52 4f |--------|--}..PRO| |00001ad0| 43 45 44 55 52 45 20 54 | 42 69 74 4d 61 70 44 6f |CEDURE T|BitMapDo| |00001ae0| 63 75 6d 65 6e 74 2e 47 | 65 74 4f 72 69 67 42 69 |cument.G|etOrigBi| |00001af0| 74 4d 61 70 28 56 41 52 | 20 61 42 69 74 4d 61 70 |tMap(VAR| aBitMap| |00001b00| 3a 20 42 69 74 4d 61 70 | 29 3b 0d 0d 09 42 45 47 |: BitMap|);...BEG| |00001b10| 49 4e 0d 09 09 61 42 69 | 74 4d 61 70 20 3a 3d 20 |IN...aBi|tMap := | |00001b20| 66 4f 72 69 67 42 69 74 | 4d 61 70 3b 0d 09 45 4e |fOrigBit|Map;..EN| |00001b30| 44 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |D;..{---|--------| |00001b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001b90| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 7b 20 54 20 42 20 69 |-------}|.{ T B i| |00001ba0| 20 74 20 4d 20 61 20 70 | 20 56 20 69 20 65 20 77 | t M a p| V i e w| |00001bb0| 20 7d 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | }.{----|--------| |00001bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001c10| 2d 2d 2d 2d 2d 2d 7d 0d | 0d 50 52 4f 43 45 44 55 |------}.|.PROCEDU| |00001c20| 52 45 20 54 42 69 74 4d | 61 70 56 69 65 77 2e 49 |RE TBitM|apView.I| |00001c30| 52 65 73 28 69 74 73 44 | 6f 63 75 6d 65 6e 74 3a |Res(itsD|ocument:| |00001c40| 20 54 44 6f 63 75 6d 65 | 6e 74 3b 20 69 74 73 53 | TDocume|nt; itsS| |00001c50| 75 70 65 72 76 69 65 77 | 3a 20 54 56 69 65 77 3b |uperview|: TView;| |00001c60| 0d 09 56 41 52 20 69 74 | 73 50 61 72 61 6d 73 3a |..VAR it|sParams:| |00001c70| 20 50 74 72 29 3b 20 4f | 56 45 52 52 49 44 45 3b | Ptr); O|VERRIDE;| |00001c80| 0d 0d 09 56 41 52 0d 09 | 09 66 69 09 09 09 09 20 |...VAR..|.fi.... | |00001c90| 20 20 3a 20 46 61 69 6c | 49 6e 66 6f 3b 0d 09 09 | : Fail|Info;...| |00001ca0| 64 61 74 61 09 09 09 20 | 20 20 3a 20 50 74 72 3b |data... | : Ptr;| |00001cb0| 0d 09 09 61 42 69 74 4d | 61 70 20 09 09 20 20 20 |...aBitM|ap .. | |00001cc0| 3a 20 42 69 74 4d 61 70 | 3b 0d 09 09 6f 6c 64 50 |: BitMap|;...oldP| |00001cd0| 65 72 6d 20 09 09 20 20 | 20 3a 20 42 6f 6f 6c 65 |erm .. | : Boole| |00001ce0| 61 6e 3b 0d 09 09 62 6d | 53 69 7a 65 09 09 09 20 |an;...bm|Size... | |00001cf0| 20 20 3a 20 4c 4f 4e 47 | 49 4e 54 3b 0d 0d 09 50 | : LONG|INT;...P| |00001d00| 52 4f 43 45 44 55 52 45 | 20 48 61 6e 64 6c 65 46 |ROCEDURE| HandleF| |00001d10| 61 69 6c 75 72 65 28 65 | 72 72 6f 72 3a 20 4f 53 |ailure(e|rror: OS| |00001d20| 45 72 72 3b 20 6d 65 73 | 73 61 67 65 3a 20 4c 4f |Err; mes|sage: LO| |00001d30| 4e 47 49 4e 54 29 3b 0d | 0d 09 09 42 45 47 49 4e |NGINT);.|...BEGIN| |00001d40| 0d 09 09 09 46 72 65 65 | 3b 0d 09 09 45 4e 44 3b |....Free|;...END;| |00001d50| 0d 0d 09 42 45 47 49 4e | 0d 09 09 66 54 72 61 6e |...BEGIN|...fTran| |00001d60| 73 42 69 74 4d 61 70 2e | 62 61 73 65 41 64 64 72 |sBitMap.|baseAddr| |00001d70| 20 3a 3d 20 4e 49 4c 3b | 0d 09 09 49 4e 48 45 52 | := NIL;|...INHER| |00001d80| 49 54 45 44 20 49 52 65 | 73 28 69 74 73 44 6f 63 |ITED IRe|s(itsDoc| |00001d90| 75 6d 65 6e 74 2c 20 69 | 74 73 53 75 70 65 72 76 |ument, i|tsSuperv| |00001da0| 69 65 77 2c 20 69 74 73 | 50 61 72 61 6d 73 29 3b |iew, its|Params);| |00001db0| 0d 0d 09 09 57 49 54 48 | 20 66 54 72 61 6e 73 42 |....WITH| fTransB| |00001dc0| 69 74 4d 61 70 20 44 4f | 20 42 45 47 49 4e 0d 09 |itMap DO| BEGIN..| |00001dd0| 09 09 72 6f 77 42 79 74 | 65 73 20 3a 3d 20 6b 52 |..rowByt|es := kR| |00001de0| 6f 77 42 79 74 65 73 3b | 0d 09 09 09 57 49 54 48 |owBytes;|....WITH| |00001df0| 20 62 6f 75 6e 64 73 20 | 44 4f 20 42 45 47 49 4e | bounds |DO BEGIN| |00001e00| 0d 09 09 09 09 74 6f 70 | 20 3a 3d 20 30 3b 0d 09 |.....top| := 0;..| |00001e10| 09 09 09 6c 65 66 74 20 | 3a 3d 20 30 3b 0d 09 09 |...left |:= 0;...| |00001e20| 09 09 62 6f 74 74 6f 6d | 20 3a 3d 20 6b 48 65 69 |..bottom| := kHei| |00001e30| 67 68 74 3b 0d 09 09 09 | 09 72 69 67 68 74 20 3a |ght;....|.right :| |00001e40| 3d 20 6b 57 69 64 74 68 | 3b 0d 09 09 09 09 62 6d |= kWidth|;.....bm| |00001e50| 53 69 7a 65 20 3a 3d 20 | 4c 4f 4e 47 49 4e 54 28 |Size := |LONGINT(| |00001e60| 72 6f 77 42 79 74 65 73 | 29 20 2a 20 62 6f 74 74 |rowBytes|) * bott| |00001e70| 6f 6d 3b 0d 09 09 09 45 | 4e 44 3b 0d 09 09 45 4e |om;....E|ND;...EN| |00001e80| 44 3b 0d 0d 09 09 43 61 | 74 63 68 46 61 69 6c 75 |D;....Ca|tchFailu| |00001e90| 72 65 73 28 66 69 2c 20 | 48 61 6e 64 6c 65 46 61 |res(fi, |HandleFa| |00001ea0| 69 6c 75 72 65 29 3b 0d | 0d 09 09 6f 6c 64 50 65 |ilure);.|...oldPe| |00001eb0| 72 6d 20 3a 3d 20 50 65 | 72 6d 41 6c 6c 6f 63 61 |rm := Pe|rmAlloca| |00001ec0| 74 69 6f 6e 28 54 52 55 | 45 29 3b 0d 09 09 64 61 |tion(TRU|E);...da| |00001ed0| 74 61 20 3a 3d 20 4e 65 | 77 50 74 72 43 6c 65 61 |ta := Ne|wPtrClea| |00001ee0| 72 28 62 6d 53 69 7a 65 | 29 3b 0d 09 09 6f 6c 64 |r(bmSize|);...old| |00001ef0| 50 65 72 6d 20 3a 3d 20 | 50 65 72 6d 41 6c 6c 6f |Perm := |PermAllo| |00001f00| 63 61 74 69 6f 6e 28 6f | 6c 64 50 65 72 6d 29 3b |cation(o|ldPerm);| |00001f10| 0d 09 09 46 61 69 6c 4e | 49 4c 28 64 61 74 61 29 |...FailN|IL(data)| |00001f20| 3b 0d 09 09 66 54 72 61 | 6e 73 42 69 74 4d 61 70 |;...fTra|nsBitMap| |00001f30| 2e 62 61 73 65 41 64 64 | 72 20 3a 3d 20 64 61 74 |.baseAdd|r := dat| |00001f40| 61 3b 0d 0d 09 09 53 75 | 63 63 65 73 73 28 66 69 |a;....Su|ccess(fi| |00001f50| 29 3b 0d 0d 09 09 61 42 | 69 74 4d 61 70 20 3a 3d |);....aB|itMap :=| |00001f60| 20 66 54 72 61 6e 73 42 | 69 74 4d 61 70 3b 0d 09 | fTransB|itMap;..| |00001f70| 09 54 42 69 74 4d 61 70 | 44 6f 63 75 6d 65 6e 74 |.TBitMap|Document| |00001f80| 28 66 44 6f 63 75 6d 65 | 6e 74 29 2e 43 6f 70 79 |(fDocume|nt).Copy| |00001f90| 4f 72 69 67 42 69 74 73 | 28 61 42 69 74 4d 61 70 |OrigBits|(aBitMap| |00001fa0| 29 3b 0d 09 45 4e 44 3b | 0d 0d 7b 2d 2d 2d 2d 2d |);..END;|..{-----| |00001fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 0d |--------|-----}..| |00002010| 50 52 4f 43 45 44 55 52 | 45 20 54 42 69 74 4d 61 |PROCEDUR|E TBitMa| |00002020| 70 56 69 65 77 2e 46 72 | 65 65 3b 20 4f 56 45 52 |pView.Fr|ee; OVER| |00002030| 52 49 44 45 3b 0d 0d 09 | 42 45 47 49 4e 0d 09 09 |RIDE;...|BEGIN...| |00002040| 44 69 73 70 6f 73 49 66 | 50 74 72 28 66 54 72 61 |DisposIf|Ptr(fTra| |00002050| 6e 73 42 69 74 4d 61 70 | 2e 62 61 73 65 41 64 64 |nsBitMap|.baseAdd| |00002060| 72 29 3b 0d 09 09 49 4e | 48 45 52 49 54 45 44 20 |r);...IN|HERITED | |00002070| 46 72 65 65 3b 0d 09 45 | 4e 44 3b 0d 0d 7b 2d 2d |Free;..E|ND;..{--| |00002080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000020a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000020b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000020c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000020d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000020e0| 7d 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 54 42 69 |}..PROCE|DURE TBi| |000020f0| 74 4d 61 70 56 69 65 77 | 2e 43 61 6c 6c 54 72 61 |tMapView|.CallTra| |00002100| 6e 73 66 6f 72 6d 28 72 | 6f 74 61 74 69 6f 6e 3a |nsform(r|otation:| |00002110| 20 49 4e 54 45 47 45 52 | 3b 20 53 78 2c 20 53 79 | INTEGER|; Sx, Sy| |00002120| 3a 20 45 78 74 65 6e 64 | 65 64 29 3b 0d 0d 09 56 |: Extend|ed);...V| |00002130| 41 52 0d 09 09 73 6f 75 | 72 63 65 42 69 74 4d 61 |AR...sou|rceBitMa| |00002140| 70 09 20 20 20 3a 20 42 | 69 74 4d 61 70 3b 0d 09 |p. : B|itMap;..| |00002150| 09 64 65 73 74 42 69 74 | 4d 61 70 09 09 20 20 20 |.destBit|Map.. | |00002160| 3a 20 42 69 74 4d 61 70 | 3b 0d 09 09 63 65 6e 74 |: BitMap|;...cent| |00002170| 65 72 09 09 09 20 20 20 | 3a 20 50 6f 69 6e 74 3b |er... |: Point;| |00002180| 0d 09 09 64 65 73 74 69 | 6e 61 74 69 6f 6e 20 09 |...desti|nation .| |00002190| 20 20 20 3a 20 50 6f 69 | 6e 74 3b 0d 0d 09 42 45 | : Poi|nt;...BE| |000021a0| 47 49 4e 0d 09 09 54 42 | 69 74 4d 61 70 44 6f 63 |GIN...TB|itMapDoc| |000021b0| 75 6d 65 6e 74 28 66 44 | 6f 63 75 6d 65 6e 74 29 |ument(fD|ocument)| |000021c0| 2e 47 65 74 4f 72 69 67 | 42 69 74 4d 61 70 28 73 |.GetOrig|BitMap(s| |000021d0| 6f 75 72 63 65 42 69 74 | 4d 61 70 29 3b 0d 09 09 |ourceBit|Map);...| |000021e0| 64 65 73 74 42 69 74 4d | 61 70 20 3a 3d 20 66 54 |destBitM|ap := fT| |000021f0| 72 61 6e 73 42 69 74 4d | 61 70 3b 0d 0d 09 09 57 |ransBitM|ap;....W| |00002200| 49 54 48 20 73 6f 75 72 | 63 65 42 69 74 4d 61 70 |ITH sour|ceBitMap| |00002210| 2e 62 6f 75 6e 64 73 20 | 44 4f 20 42 45 47 49 4e |.bounds |DO BEGIN| |00002220| 0d 09 09 09 63 65 6e 74 | 65 72 2e 68 20 3a 3d 20 |....cent|er.h := | |00002230| 72 69 67 68 74 20 44 49 | 56 20 32 3b 0d 09 09 09 |right DI|V 2;....| |00002240| 63 65 6e 74 65 72 2e 76 | 20 3a 3d 20 62 6f 74 74 |center.v| := bott| |00002250| 6f 6d 20 44 49 56 20 32 | 3b 0d 09 09 45 4e 44 3b |om DIV 2|;...END;| |00002260| 0d 0d 09 09 57 49 54 48 | 20 64 65 73 74 42 69 74 |....WITH| destBit| |00002270| 4d 61 70 2e 62 6f 75 6e | 64 73 20 44 4f 20 42 45 |Map.boun|ds DO BE| |00002280| 47 49 4e 0d 09 09 09 64 | 65 73 74 69 6e 61 74 69 |GIN....d|estinati| |00002290| 6f 6e 2e 68 20 3a 3d 20 | 72 69 67 68 74 20 44 49 |on.h := |right DI| |000022a0| 56 20 32 3b 0d 09 09 09 | 64 65 73 74 69 6e 61 74 |V 2;....|destinat| |000022b0| 69 6f 6e 2e 76 20 3a 3d | 20 62 6f 74 74 6f 6d 20 |ion.v :=| bottom | |000022c0| 44 49 56 20 32 3b 0d 09 | 09 45 4e 44 3b 0d 0d 09 |DIV 2;..|.END;...| |000022d0| 09 44 6f 54 72 61 6e 73 | 66 6f 72 6d 28 73 6f 75 |.DoTrans|form(sou| |000022e0| 72 63 65 42 69 74 4d 61 | 70 2c 20 64 65 73 74 42 |rceBitMa|p, destB| |000022f0| 69 74 4d 61 70 2c 20 63 | 65 6e 74 65 72 2c 20 64 |itMap, c|enter, d| |00002300| 65 73 74 69 6e 61 74 69 | 6f 6e 2c 20 72 6f 74 61 |estinati|on, rota| |00002310| 74 69 6f 6e 2c 20 58 38 | 30 74 6f 58 39 36 28 53 |tion, X8|0toX96(S| |00002320| 78 29 2c 0d 09 09 09 09 | 09 58 38 30 74 6f 58 39 |x),.....|.X80toX9| |00002330| 36 28 53 79 29 29 3b 0d | 09 09 46 6f 72 63 65 52 |6(Sy));.|..ForceR| |00002340| 65 64 72 61 77 3b 0d 09 | 45 4e 44 3b 0d 0d 7b 2d |edraw;..|END;..{-| |00002350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000023b0| 2d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 54 42 69 |-}..FUNC|TION TBi| |000023c0| 74 4d 61 70 56 69 65 77 | 2e 44 6f 4d 65 6e 75 43 |tMapView|.DoMenuC| |000023d0| 6f 6d 6d 61 6e 64 28 61 | 43 6d 64 4e 75 6d 62 65 |ommand(a|CmdNumbe| |000023e0| 72 3a 20 43 6d 64 4e 75 | 6d 62 65 72 29 3a 20 54 |r: CmdNu|mber): T| |000023f0| 43 6f 6d 6d 61 6e 64 3b | 20 4f 56 45 52 52 49 44 |Command;| OVERRID| |00002400| 45 3b 0d 0d 09 56 41 52 | 0d 09 09 61 42 69 74 4d |E;...VAR|...aBitM| |00002410| 61 70 20 09 09 20 20 20 | 3a 20 42 69 74 4d 61 70 |ap .. |: BitMap| |00002420| 3b 0d 09 09 61 57 69 6e | 64 6f 77 20 09 09 20 20 |;...aWin|dow .. | |00002430| 20 3a 20 54 57 69 6e 64 | 6f 77 3b 0d 09 09 64 69 | : TWind|ow;...di| |00002440| 73 6d 69 73 73 65 72 09 | 09 20 20 20 3a 20 49 44 |smisser.|. : ID| |00002450| 54 79 70 65 3b 0d 09 09 | 73 6f 75 72 63 65 42 69 |Type;...|sourceBi| |00002460| 74 4d 61 70 09 20 20 20 | 3a 20 42 69 74 4d 61 70 |tMap. |: BitMap| |00002470| 3b 0d 09 09 64 65 73 74 | 42 69 74 4d 61 70 09 09 |;...dest|BitMap..| |00002480| 20 20 20 3a 20 42 69 74 | 4d 61 70 3b 0d 0d 09 42 | : Bit|Map;...B| |00002490| 45 47 49 4e 0d 09 09 44 | 6f 4d 65 6e 75 43 6f 6d |EGIN...D|oMenuCom| |000024a0| 6d 61 6e 64 20 3a 3d 20 | 67 4e 6f 43 68 61 6e 67 |mand := |gNoChang| |000024b0| 65 73 3b 0d 09 09 43 41 | 53 45 20 61 43 6d 64 4e |es;...CA|SE aCmdN| |000024c0| 75 6d 62 65 72 20 4f 46 | 0d 09 09 09 63 4e 6f 72 |umber OF|....cNor| |000024d0| 6d 61 6c 3a 20 42 45 47 | 49 4e 0d 09 09 09 09 61 |mal: BEG|IN.....a| |000024e0| 42 69 74 4d 61 70 20 3a | 3d 20 66 54 72 61 6e 73 |BitMap :|= fTrans| |000024f0| 42 69 74 4d 61 70 3b 0d | 09 09 09 09 54 42 69 74 |BitMap;.|....TBit| |00002500| 4d 61 70 44 6f 63 75 6d | 65 6e 74 28 66 44 6f 63 |MapDocum|ent(fDoc| |00002510| 75 6d 65 6e 74 29 2e 43 | 6f 70 79 4f 72 69 67 42 |ument).C|opyOrigB| |00002520| 69 74 73 28 61 42 69 74 | 4d 61 70 29 3b 0d 09 09 |its(aBit|Map);...| |00002530| 09 09 46 6f 72 63 65 52 | 65 64 72 61 77 3b 0d 09 |..ForceR|edraw;..| |00002540| 09 09 45 4e 44 3b 0d 09 | 09 09 63 52 6f 74 39 30 |..END;..|..cRot90| |00002550| 3a 20 42 45 47 49 4e 0d | 09 09 09 09 43 61 6c 6c |: BEGIN.|....Call| |00002560| 54 72 61 6e 73 66 6f 72 | 6d 28 39 30 2c 20 31 2e |Transfor|m(90, 1.| |00002570| 30 2c 20 31 2e 30 29 3b | 0d 09 09 09 45 4e 44 3b |0, 1.0);|....END;| |00002580| 0d 09 09 09 63 52 6f 74 | 34 35 3a 20 42 45 47 49 |....cRot|45: BEGI| |00002590| 4e 0d 09 09 09 09 43 61 | 6c 6c 54 72 61 6e 73 66 |N.....Ca|llTransf| |000025a0| 6f 72 6d 28 34 35 2c 20 | 31 2e 30 2c 20 31 2e 30 |orm(45, |1.0, 1.0| |000025b0| 29 3b 0d 09 09 09 45 4e | 44 3b 0d 09 09 09 63 53 |);....EN|D;....cS| |000025c0| 63 61 6c 65 32 3a 20 42 | 45 47 49 4e 0d 09 09 09 |cale2: B|EGIN....| |000025d0| 09 43 61 6c 6c 54 72 61 | 6e 73 66 6f 72 6d 28 30 |.CallTra|nsform(0| |000025e0| 2c 20 32 2e 30 2c 20 32 | 2e 30 29 3b 0d 09 09 09 |, 2.0, 2|.0);....| |000025f0| 45 4e 44 3b 0d 09 09 09 | 63 53 63 61 6c 65 48 61 |END;....|cScaleHa| |00002600| 6c 66 3a 20 42 45 47 49 | 4e 0d 09 09 09 09 43 61 |lf: BEGI|N.....Ca| |00002610| 6c 6c 54 72 61 6e 73 66 | 6f 72 6d 28 30 2c 20 30 |llTransf|orm(0, 0| |00002620| 2e 35 2c 20 30 2e 35 29 | 3b 0d 09 09 09 45 4e 44 |.5, 0.5)|;....END| |00002630| 3b 0d 09 09 09 63 52 6f | 74 34 35 53 63 61 6c 65 |;....cRo|t45Scale| |00002640| 48 61 6c 66 3a 20 42 45 | 47 49 4e 0d 09 09 09 09 |Half: BE|GIN.....| |00002650| 43 61 6c 6c 54 72 61 6e | 73 66 6f 72 6d 28 34 35 |CallTran|sform(45| |00002660| 2c 20 30 2e 35 2c 20 30 | 2e 35 29 3b 0d 09 09 09 |, 0.5, 0|.5);....| |00002670| 45 4e 44 3b 0d 09 09 09 | 63 43 75 73 74 6f 6d 3a |END;....|cCustom:| |00002680| 20 42 45 47 49 4e 0d 09 | 09 09 09 61 57 69 6e 64 | BEGIN..|...aWind| |00002690| 6f 77 20 3a 3d 20 4e 65 | 77 54 65 6d 70 6c 61 74 |ow := Ne|wTemplat| |000026a0| 65 57 69 6e 64 6f 77 28 | 6b 4f 70 74 69 6f 6e 73 |eWindow(|kOptions| |000026b0| 44 69 61 6c 6f 67 2c 20 | 4e 49 4c 29 3b 0d 09 09 |Dialog, |NIL);...| |000026c0| 09 09 64 69 73 6d 69 73 | 73 65 72 20 3a 3d 20 54 |..dismis|ser := T| |000026d0| 44 69 61 6c 6f 67 56 69 | 65 77 28 61 57 69 6e 64 |DialogVi|ew(aWind| |000026e0| 6f 77 2e 46 69 6e 64 53 | 75 62 56 69 65 77 28 27 |ow.FindS|ubView('| |000026f0| 44 4c 4f 47 27 29 29 2e | 50 6f 73 65 4d 6f 64 61 |DLOG')).|PoseModa| |00002700| 6c 6c 79 3b 0d 09 09 09 | 09 49 46 20 28 64 69 73 |lly;....|.IF (dis| |00002710| 6d 69 73 73 65 72 20 3d | 20 27 4f 4b 4f 4b 27 29 |misser =| 'OKOK')| |00002720| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 09 | THEN BE|GIN.....| |00002730| 09 57 49 54 48 20 61 57 | 69 6e 64 6f 77 20 44 4f |.WITH aW|indow DO| |00002740| 20 42 45 47 49 4e 0d 09 | 09 09 09 09 09 67 52 6f | BEGIN..|.....gRo| |00002750| 74 61 74 69 6f 6e 20 3a | 3d 20 54 4e 75 6d 62 65 |tation :|= TNumbe| |00002760| 72 54 65 78 74 28 46 69 | 6e 64 53 75 62 56 69 65 |rText(Fi|ndSubVie| |00002770| 77 28 27 6e 64 65 67 27 | 29 29 2e 47 65 74 56 61 |w('ndeg'|)).GetVa| |00002780| 6c 75 65 3b 0d 09 09 09 | 09 09 09 57 49 54 48 20 |lue;....|...WITH | |00002790| 67 43 65 6e 74 65 72 20 | 44 4f 20 42 45 47 49 4e |gCenter |DO BEGIN| |000027a0| 0d 09 09 09 09 09 09 09 | 68 20 3a 3d 20 54 4e 75 |........|h := TNu| |000027b0| 6d 62 65 72 54 65 78 74 | 28 46 69 6e 64 53 75 62 |mberText|(FindSub| |000027c0| 56 69 65 77 28 27 6e 63 | 72 78 27 29 29 2e 47 65 |View('nc|rx')).Ge| |000027d0| 74 56 61 6c 75 65 3b 0d | 09 09 09 09 09 09 09 76 |tValue;.|.......v| |000027e0| 20 3a 3d 20 54 4e 75 6d | 62 65 72 54 65 78 74 28 | := TNum|berText(| |000027f0| 46 69 6e 64 53 75 62 56 | 69 65 77 28 27 6e 63 72 |FindSubV|iew('ncr| |00002800| 79 27 29 29 2e 47 65 74 | 56 61 6c 75 65 3b 0d 09 |y')).Get|Value;..| |00002810| 09 09 09 09 09 45 4e 44 | 3b 0d 09 09 09 09 09 09 |.....END|;.......| |00002820| 57 49 54 48 20 67 44 65 | 73 74 69 6e 61 74 69 6f |WITH gDe|stinatio| |00002830| 6e 20 44 4f 20 42 45 47 | 49 4e 0d 09 09 09 09 09 |n DO BEG|IN......| |00002840| 09 09 68 20 3a 3d 20 54 | 4e 75 6d 62 65 72 54 65 |..h := T|NumberTe| |00002850| 78 74 28 46 69 6e 64 53 | 75 62 56 69 65 77 28 27 |xt(FindS|ubView('| |00002860| 6e 74 72 78 27 29 29 2e | 47 65 74 56 61 6c 75 65 |ntrx')).|GetValue| |00002870| 3b 0d 09 09 09 09 09 09 | 09 76 20 3a 3d 20 54 4e |;.......|.v := TN| |00002880| 75 6d 62 65 72 54 65 78 | 74 28 46 69 6e 64 53 75 |umberTex|t(FindSu| |00002890| 62 56 69 65 77 28 27 6e | 74 72 79 27 29 29 2e 47 |bView('n|try')).G| |000028a0| 65 74 56 61 6c 75 65 3b | 0d 09 09 09 09 09 09 45 |etValue;|.......E| |000028b0| 4e 44 3b 0d 09 09 09 09 | 09 09 67 53 63 61 6c 65 |ND;.....|..gScale| |000028c0| 58 20 3a 3d 20 54 45 78 | 74 4e 75 6d 62 65 72 54 |X := TEx|tNumberT| |000028d0| 65 78 74 28 46 69 6e 64 | 53 75 62 56 69 65 77 28 |ext(Find|SubView(| |000028e0| 27 6e 73 63 78 27 29 29 | 2e 47 65 74 45 78 74 56 |'nscx'))|.GetExtV| |000028f0| 61 6c 75 65 3b 0d 09 09 | 09 09 09 09 67 53 63 61 |alue;...|....gSca| |00002900| 6c 65 59 20 3a 3d 20 54 | 45 78 74 4e 75 6d 62 65 |leY := T|ExtNumbe| |00002910| 72 54 65 78 74 28 46 69 | 6e 64 53 75 62 56 69 65 |rText(Fi|ndSubVie| |00002920| 77 28 27 6e 73 63 79 27 | 29 29 2e 47 65 74 45 78 |w('nscy'|)).GetEx| |00002930| 74 56 61 6c 75 65 3b 0d | 09 09 09 09 09 09 43 6c |tValue;.|......Cl| |00002940| 6f 73 65 3b 0d 09 09 09 | 09 09 45 4e 44 3b 0d 0d |ose;....|..END;..| |00002950| 09 09 09 09 09 49 46 20 | 46 6f 63 75 73 20 54 48 |.....IF |Focus TH| |00002960| 45 4e 3b 0d 09 09 09 09 | 09 42 65 67 69 6e 55 70 |EN;.....|.BeginUp| |00002970| 64 61 74 65 28 74 68 65 | 50 6f 72 74 29 3b 09 09 |date(the|Port);..| |00002980| 09 09 7b 55 73 65 20 74 | 68 65 50 6f 72 74 20 62 |..{Use t|hePort b| |00002990| 65 63 61 75 73 65 20 77 | 65 20 6b 6e 6f 77 20 77 |ecause w|e know w| |000029a0| 65 27 72 65 20 66 6f 63 | 75 73 65 64 7d 0d 09 09 |e're foc|used}...| |000029b0| 09 09 09 45 72 61 73 65 | 52 65 63 74 28 74 68 65 |...Erase|Rect(the| |000029c0| 50 6f 72 74 5e 2e 70 6f | 72 74 52 65 63 74 29 3b |Port^.po|rtRect);| |000029d0| 0d 09 09 09 09 09 44 72 | 61 77 43 6f 6e 74 65 6e |......Dr|awConten| |000029e0| 74 73 3b 0d 09 09 09 09 | 09 45 6e 64 55 70 64 61 |ts;.....|.EndUpda| |000029f0| 74 65 28 74 68 65 50 6f | 72 74 29 3b 0d 0d 09 09 |te(thePo|rt);....| |00002a00| 09 09 09 54 42 69 74 4d | 61 70 44 6f 63 75 6d 65 |...TBitM|apDocume| |00002a10| 6e 74 28 66 44 6f 63 75 | 6d 65 6e 74 29 2e 47 65 |nt(fDocu|ment).Ge| |00002a20| 74 4f 72 69 67 42 69 74 | 4d 61 70 28 73 6f 75 72 |tOrigBit|Map(sour| |00002a30| 63 65 42 69 74 4d 61 70 | 29 3b 0d 09 09 09 09 09 |ceBitMap|);......| |00002a40| 64 65 73 74 42 69 74 4d | 61 70 20 3a 3d 20 66 54 |destBitM|ap := fT| |00002a50| 72 61 6e 73 42 69 74 4d | 61 70 3b 0d 0d 09 09 09 |ransBitM|ap;.....| |00002a60| 09 09 7b 24 49 46 43 20 | 71 44 65 62 75 67 7d 0d |..{$IFC |qDebug}.| |00002a70| 09 09 09 09 09 57 72 4c | 62 6c 50 74 28 27 67 43 |.....WrL|blPt('gC| |00002a80| 65 6e 74 65 72 27 2c 20 | 67 43 65 6e 74 65 72 29 |enter', |gCenter)| |00002a90| 3b 20 57 72 69 74 65 6c | 6e 3b 0d 09 09 09 09 09 |; Writel|n;......| |00002aa0| 57 72 4c 62 6c 50 74 28 | 27 67 44 65 73 74 69 6e |WrLblPt(|'gDestin| |00002ab0| 61 74 69 6f 6e 27 2c 20 | 67 44 65 73 74 69 6e 61 |ation', |gDestina| |00002ac0| 74 69 6f 6e 29 3b 20 57 | 72 69 74 65 6c 6e 3b 0d |tion); W|riteln;.| |00002ad0| 09 09 09 09 09 57 72 69 | 74 65 6c 6e 28 27 67 52 |.....Wri|teln('gR| |00002ae0| 6f 74 61 74 69 6f 6e 20 | 3d 20 27 2c 20 67 52 6f |otation |= ', gRo| |00002af0| 74 61 74 69 6f 6e 3a 20 | 31 29 3b 0d 09 09 09 09 |tation: |1);.....| |00002b00| 09 57 72 69 74 65 6c 6e | 28 27 67 53 63 61 6c 65 |.Writeln|('gScale| |00002b10| 58 20 3d 20 27 2c 20 67 | 53 63 61 6c 65 58 3a 20 |X = ', g|ScaleX: | |00002b20| 31 29 3b 0d 09 09 09 09 | 09 57 72 69 74 65 6c 6e |1);.....|.Writeln| |00002b30| 28 27 67 53 63 61 6c 65 | 59 20 3d 20 27 2c 20 67 |('gScale|Y = ', g| |00002b40| 53 63 61 6c 65 59 3a 20 | 31 29 3b 0d 09 09 09 09 |ScaleY: |1);.....| |00002b50| 09 7b 24 45 4e 44 43 7d | 0d 0d 09 09 09 09 09 44 |.{$ENDC}|.......D| |00002b60| 6f 54 72 61 6e 73 66 6f | 72 6d 28 73 6f 75 72 63 |oTransfo|rm(sourc| |00002b70| 65 42 69 74 4d 61 70 2c | 20 64 65 73 74 42 69 74 |eBitMap,| destBit| |00002b80| 4d 61 70 2c 20 67 43 65 | 6e 74 65 72 2c 20 67 44 |Map, gCe|nter, gD| |00002b90| 65 73 74 69 6e 61 74 69 | 6f 6e 2c 20 67 52 6f 74 |estinati|on, gRot| |00002ba0| 61 74 69 6f 6e 2c 0d 09 | 09 09 09 09 09 09 09 58 |ation,..|.......X| |00002bb0| 38 30 74 6f 58 39 36 28 | 67 53 63 61 6c 65 58 29 |80toX96(|gScaleX)| |00002bc0| 2c 20 58 38 30 74 6f 58 | 39 36 28 67 53 63 61 6c |, X80toX|96(gScal| |00002bd0| 65 59 29 29 3b 0d 09 09 | 09 09 09 46 6f 72 63 65 |eY));...|...Force| |00002be0| 52 65 64 72 61 77 3b 0d | 09 09 09 09 45 4e 44 0d |Redraw;.|....END.| |00002bf0| 09 09 09 09 45 4c 53 45 | 20 42 45 47 49 4e 0d 09 |....ELSE| BEGIN..| |00002c00| 09 09 09 09 61 57 69 6e | 64 6f 77 2e 43 6c 6f 73 |....aWin|dow.Clos| |00002c10| 65 3b 0d 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 45 |e;.....E|ND;....E| |00002c20| 4e 44 3b 0d 09 09 09 4f | 54 48 45 52 57 49 53 45 |ND;....O|THERWISE| |00002c30| 20 44 6f 4d 65 6e 75 43 | 6f 6d 6d 61 6e 64 20 3a | DoMenuC|ommand :| |00002c40| 3d 20 49 4e 48 45 52 49 | 54 45 44 20 44 6f 4d 65 |= INHERI|TED DoMe| |00002c50| 6e 75 43 6f 6d 6d 61 6e | 64 28 61 43 6d 64 4e 75 |nuComman|d(aCmdNu| |00002c60| 6d 62 65 72 29 3b 0d 09 | 09 45 4e 44 3b 0d 09 45 |mber);..|.END;..E| |00002c70| 4e 44 3b 0d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ND;..{--|--------| |00002c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 0d 50 52 4f 43 45 |--------|}..PROCE| |00002ce0| 44 55 52 45 20 54 42 69 | 74 4d 61 70 56 69 65 77 |DURE TBi|tMapView| |00002cf0| 2e 44 6f 53 65 74 75 70 | 4d 65 6e 75 73 3b 20 4f |.DoSetup|Menus; O| |00002d00| 56 45 52 52 49 44 45 3b | 0d 0d 09 42 45 47 49 4e |VERRIDE;|...BEGIN| |00002d10| 0d 09 09 49 4e 48 45 52 | 49 54 45 44 20 44 6f 53 |...INHER|ITED DoS| |00002d20| 65 74 75 70 4d 65 6e 75 | 73 3b 0d 0d 09 09 45 6e |etupMenu|s;....En| |00002d30| 61 62 6c 65 28 63 4e 6f | 72 6d 61 6c 2c 20 54 52 |able(cNo|rmal, TR| |00002d40| 55 45 29 3b 0d 09 09 45 | 6e 61 62 6c 65 28 63 52 |UE);...E|nable(cR| |00002d50| 6f 74 39 30 2c 20 54 52 | 55 45 29 3b 0d 09 09 45 |ot90, TR|UE);...E| |00002d60| 6e 61 62 6c 65 28 63 52 | 6f 74 34 35 2c 20 54 52 |nable(cR|ot45, TR| |00002d70| 55 45 29 3b 0d 09 09 45 | 6e 61 62 6c 65 28 63 53 |UE);...E|nable(cS| |00002d80| 63 61 6c 65 32 2c 20 54 | 52 55 45 29 3b 0d 09 09 |cale2, T|RUE);...| |00002d90| 45 6e 61 62 6c 65 28 63 | 53 63 61 6c 65 48 61 6c |Enable(c|ScaleHal| |00002da0| 66 2c 20 54 52 55 45 29 | 3b 0d 09 09 45 6e 61 62 |f, TRUE)|;...Enab| |00002db0| 6c 65 28 63 52 6f 74 34 | 35 53 63 61 6c 65 48 61 |le(cRot4|5ScaleHa| |00002dc0| 6c 66 2c 20 54 52 55 45 | 29 3b 0d 09 09 45 6e 61 |lf, TRUE|);...Ena| |00002dd0| 62 6c 65 28 63 43 75 73 | 74 6f 6d 2c 20 54 52 55 |ble(cCus|tom, TRU| |00002de0| 45 29 3b 0d 09 45 4e 44 | 3b 0d 0d 7b 2d 2d 2d 2d |E);..END|;..{----| |00002df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.| |00002e50| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 42 69 74 4d |.PROCEDU|RE TBitM| |00002e60| 61 70 56 69 65 77 2e 44 | 72 61 77 28 61 72 65 61 |apView.D|raw(area| |00002e70| 3a 20 52 65 63 74 29 3b | 20 4f 56 45 52 52 49 44 |: Rect);| OVERRID| |00002e80| 45 3b 0d 0d 09 56 41 52 | 0d 09 09 61 42 69 74 4d |E;...VAR|...aBitM| |00002e90| 61 70 20 09 09 20 20 20 | 3a 20 42 69 74 4d 61 70 |ap .. |: BitMap| |00002ea0| 3b 0d 0d 09 42 45 47 49 | 4e 0d 09 09 61 42 69 74 |;...BEGI|N...aBit| |00002eb0| 4d 61 70 20 3a 3d 20 66 | 54 72 61 6e 73 42 69 74 |Map := f|TransBit| |00002ec0| 4d 61 70 3b 0d 09 09 43 | 6f 70 79 42 69 74 73 28 |Map;...C|opyBits(| |00002ed0| 61 42 69 74 4d 61 70 2c | 20 47 65 74 57 69 6e 64 |aBitMap,| GetWind| |00002ee0| 6f 77 2e 47 65 74 47 72 | 61 66 50 6f 72 74 5e 2e |ow.GetGr|afPort^.| |00002ef0| 70 6f 72 74 42 69 74 73 | 2c 20 61 72 65 61 2c 20 |portBits|, area, | |00002f00| 61 72 65 61 2c 20 73 72 | 63 43 6f 70 79 2c 20 4e |area, sr|cCopy, N| |00002f10| 49 4c 29 3b 0d 09 45 4e | 44 3b 0d 0d 7b 2d 2d 2d |IL);..EN|D;..{---| |00002f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}| |00002f80| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 54 42 69 74 |..PROCED|URE TBit| |00002f90| 4d 61 70 56 69 65 77 2e | 46 69 65 6c 64 73 28 50 |MapView.|Fields(P| |00002fa0| 52 4f 43 45 44 55 52 45 | 20 44 6f 54 6f 46 69 65 |ROCEDURE| DoToFie| |00002fb0| 6c 64 28 66 69 65 6c 64 | 4e 61 6d 65 3a 20 53 74 |ld(field|Name: St| |00002fc0| 72 32 35 35 3b 20 66 69 | 65 6c 64 41 64 64 72 3a |r255; fi|eldAddr:| |00002fd0| 20 50 74 72 3b 0d 09 09 | 09 09 09 09 09 09 09 09 | Ptr;...|........| |00002fe0| 09 09 20 66 69 65 6c 64 | 54 79 70 65 3a 20 49 4e |.. field|Type: IN| |00002ff0| 54 45 47 45 52 29 29 3b | 20 4f 56 45 52 52 49 44 |TEGER));| OVERRID| |00003000| 45 3b 0d 0d 09 42 45 47 | 49 4e 0d 09 09 44 6f 54 |E;...BEG|IN...DoT| |00003010| 6f 46 69 65 6c 64 28 27 | 66 54 72 61 6e 73 42 69 |oField('|fTransBi| |00003020| 74 4d 61 70 27 2c 20 4e | 49 4c 2c 20 62 54 69 74 |tMap', N|IL, bTit| |00003030| 6c 65 29 3b 0d 09 09 44 | 6f 54 6f 46 69 65 6c 64 |le);...D|oToField| |00003040| 28 27 20 20 62 61 73 65 | 41 64 64 72 27 2c 20 40 |(' base|Addr', @| |00003050| 66 54 72 61 6e 73 42 69 | 74 4d 61 70 2e 62 61 73 |fTransBi|tMap.bas| |00003060| 65 41 64 64 72 2c 20 62 | 50 6f 69 6e 74 65 72 29 |eAddr, b|Pointer)| |00003070| 3b 0d 09 09 44 6f 54 6f | 46 69 65 6c 64 28 27 20 |;...DoTo|Field(' | |00003080| 20 72 6f 77 42 79 74 65 | 73 27 2c 20 40 66 54 72 | rowByte|s', @fTr| |00003090| 61 6e 73 42 69 74 4d 61 | 70 2e 72 6f 77 42 79 74 |ansBitMa|p.rowByt| |000030a0| 65 73 2c 20 62 49 6e 74 | 65 67 65 72 29 3b 0d 09 |es, bInt|eger);..| |000030b0| 09 44 6f 54 6f 46 69 65 | 6c 64 28 27 20 20 62 6f |.DoToFie|ld(' bo| |000030c0| 75 6e 64 73 27 2c 20 40 | 66 54 72 61 6e 73 42 69 |unds', @|fTransBi| |000030d0| 74 4d 61 70 2e 62 6f 75 | 6e 64 73 2c 20 62 52 65 |tMap.bou|nds, bRe| |000030e0| 63 74 29 3b 0d 0d 09 09 | 49 4e 48 45 52 49 54 45 |ct);....|INHERITE| |000030f0| 44 20 46 69 65 6c 64 73 | 28 44 6f 54 6f 46 69 65 |D Fields|(DoToFie| |00003100| 6c 64 29 3b 0d 09 45 4e | 44 3b 0d 0d 7b 2d 2d 2d |ld);..EN|D;..{---| |00003110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}| |00003170| 0d 7b 20 54 20 45 20 78 | 20 74 20 4e 20 75 20 6d |.{ T E x| t N u m| |00003180| 20 62 20 65 20 72 20 54 | 20 65 20 78 20 74 20 7d | b e r T| e x t }| |00003190| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------| |000031a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000031b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000031c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000031d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000031e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000031f0| 2d 2d 2d 2d 7d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |----}..F|UNCTION | |00003200| 54 45 78 74 4e 75 6d 62 | 65 72 54 65 78 74 2e 47 |TExtNumb|erText.G| |00003210| 65 74 45 78 74 56 61 6c | 75 65 3a 20 45 78 74 65 |etExtVal|ue: Exte| |00003220| 6e 64 65 64 3b 0d 0d 09 | 56 41 52 0d 09 09 61 53 |nded;...|VAR...aS| |00003230| 74 72 69 6e 67 20 09 09 | 20 20 20 3a 20 53 74 72 |tring ..| : Str| |00003240| 32 35 35 3b 0d 0d 09 42 | 45 47 49 4e 0d 09 09 47 |255;...B|EGIN...G| |00003250| 65 74 54 65 78 74 28 61 | 53 74 72 69 6e 67 29 3b |etText(a|String);| |00003260| 0d 09 09 47 65 74 45 78 | 74 56 61 6c 75 65 20 3a |...GetEx|tValue :| |00003270| 3d 20 53 74 72 32 4e 75 | 6d 28 61 53 74 72 69 6e |= Str2Nu|m(aStrin| |00003280| 67 29 3b 0d 09 45 4e 44 | 3b 0d 0d 7b 2d 2d 2d 2d |g);..END|;..{----| |00003290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000032b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000032c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000032d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000032e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.| |000032f0| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 45 78 74 4e |.PROCEDU|RE TExtN| |00003300| 75 6d 62 65 72 54 65 78 | 74 2e 53 65 74 45 78 74 |umberTex|t.SetExt| |00003310| 56 61 6c 75 65 28 65 78 | 74 3a 20 45 78 74 65 6e |Value(ex|t: Exten| |00003320| 64 65 64 3b 20 72 65 64 | 72 61 77 3a 20 42 6f 6f |ded; red|raw: Boo| |00003330| 6c 65 61 6e 29 3b 0d 0d | 09 56 41 52 0d 09 09 61 |lean);..|.VAR...a| |00003340| 53 74 72 69 6e 67 20 09 | 09 20 20 20 3a 20 44 65 |String .|. : De| |00003350| 63 53 74 72 3b 0d 09 09 | 66 6f 72 6d 09 09 09 20 |cStr;...|form... | |00003360| 20 20 3a 20 44 65 63 46 | 6f 72 6d 3b 0d 0d 09 42 | : DecF|orm;...B| |00003370| 45 47 49 4e 0d 09 09 57 | 49 54 48 20 66 6f 72 6d |EGIN...W|ITH form| |00003380| 20 44 4f 20 42 45 47 49 | 4e 0d 09 09 09 73 74 79 | DO BEGI|N....sty| |00003390| 6c 65 20 3a 3d 20 46 6c | 6f 61 74 44 65 63 69 6d |le := Fl|oatDecim| |000033a0| 61 6c 3b 0d 09 09 09 64 | 69 67 69 74 73 20 3a 3d |al;....d|igits :=| |000033b0| 20 30 3b 0d 09 09 45 4e | 44 3b 0d 09 09 4e 75 6d | 0;...EN|D;...Num| |000033c0| 32 53 74 72 28 66 6f 72 | 6d 2c 20 65 78 74 2c 20 |2Str(for|m, ext, | |000033d0| 61 53 74 72 69 6e 67 29 | 3b 0d 09 09 53 65 74 54 |aString)|;...SetT| |000033e0| 65 78 74 28 61 53 74 72 | 69 6e 67 2c 20 72 65 64 |ext(aStr|ing, red| |000033f0| 72 61 77 29 3b 0d 09 45 | 4e 44 3b 0d 0d 7b 2d 2d |raw);..E|ND;..{--| |00003400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003460| 7d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 54 45 78 74 |}..FUNCT|ION TExt| |00003470| 4e 75 6d 62 65 72 54 65 | 78 74 2e 56 61 6c 69 64 |NumberTe|xt.Valid| |00003480| 61 74 65 3a 20 4c 4f 4e | 47 49 4e 54 3b 20 4f 56 |ate: LON|GINT; OV| |00003490| 45 52 52 49 44 45 3b 0d | 0d 09 56 41 52 0d 09 09 |ERRIDE;.|..VAR...| |000034a0| 74 68 65 53 74 72 69 6e | 67 09 09 20 20 20 3a 20 |theStrin|g.. : | |000034b0| 53 74 72 32 35 35 3b 0d | 09 09 64 65 63 52 65 63 |Str255;.|..decRec| |000034c0| 09 09 09 20 20 20 3a 20 | 44 65 63 69 6d 61 6c 3b |... : |Decimal;| |000034d0| 0d 09 09 65 78 74 56 61 | 6c 75 65 09 09 20 20 20 |...extVa|lue.. | |000034e0| 3a 20 45 78 74 65 6e 64 | 65 64 3b 0d 09 09 69 6e |: Extend|ed;...in| |000034f0| 64 65 78 09 09 09 20 20 | 20 3a 20 49 4e 54 45 47 |dex... | : INTEG| |00003500| 45 52 3b 0d 09 09 76 61 | 6c 69 64 50 72 65 66 69 |ER;...va|lidPrefi| |00003510| 78 20 09 20 20 20 3a 20 | 42 6f 6f 6c 65 61 6e 3b |x . : |Boolean;| |00003520| 0d 0d 09 42 45 47 49 4e | 0d 09 09 56 61 6c 69 64 |...BEGIN|...Valid| |00003530| 61 74 65 20 3a 3d 20 6b | 56 61 6c 69 64 56 61 6c |ate := k|ValidVal| |00003540| 75 65 3b 0d 0d 09 09 47 | 65 74 54 65 78 74 28 74 |ue;....G|etText(t| |00003550| 68 65 53 74 72 69 6e 67 | 29 3b 0d 09 09 49 46 20 |heString|);...IF | |00003560| 74 68 65 53 74 72 69 6e | 67 20 3d 20 27 27 20 54 |theStrin|g = '' T| |00003570| 48 45 4e 0d 09 09 09 74 | 68 65 53 74 72 69 6e 67 |HEN....t|heString| |00003580| 20 3a 3d 20 27 30 27 3b | 0d 0d 09 09 69 6e 64 65 | := '0';|....inde| |00003590| 78 20 3a 3d 20 31 3b 0d | 09 09 53 74 72 32 44 65 |x := 1;.|..Str2De| |000035a0| 63 28 74 68 65 53 74 72 | 69 6e 67 2c 20 69 6e 64 |c(theStr|ing, ind| |000035b0| 65 78 2c 20 64 65 63 52 | 65 63 2c 20 76 61 6c 69 |ex, decR|ec, vali| |000035c0| 64 50 72 65 66 69 78 29 | 3b 0d 09 09 49 46 20 76 |dPrefix)|;...IF v| |000035d0| 61 6c 69 64 50 72 65 66 | 69 78 20 26 20 28 69 6e |alidPref|ix & (in| |000035e0| 64 65 78 20 3e 20 4c 65 | 6e 67 74 68 28 74 68 65 |dex > Le|ngth(the| |000035f0| 53 74 72 69 6e 67 29 29 | 20 54 48 45 4e 20 42 45 |String))| THEN BE| |00003600| 47 49 4e 0d 09 09 09 65 | 78 74 56 61 6c 75 65 20 |GIN....e|xtValue | |00003610| 3a 3d 20 44 65 63 32 4e | 75 6d 28 64 65 63 52 65 |:= Dec2N|um(decRe| |00003620| 63 29 3b 0d 09 09 09 49 | 46 20 65 78 74 56 61 6c |c);....I|F extVal| |00003630| 75 65 20 3c 20 66 4d 69 | 6e 69 6d 75 6d 20 54 48 |ue < fMi|nimum TH| |00003640| 45 4e 0d 09 09 09 09 56 | 61 6c 69 64 61 74 65 20 |EN.....V|alidate | |00003650| 3a 3d 20 6b 56 61 6c 75 | 65 54 6f 6f 53 6d 61 6c |:= kValu|eTooSmal| |00003660| 6c 0d 09 09 09 45 4c 53 | 45 20 49 46 20 65 78 74 |l....ELS|E IF ext| |00003670| 56 61 6c 75 65 20 3e 20 | 66 4d 61 78 69 6d 75 6d |Value > |fMaximum| |00003680| 20 54 48 45 4e 0d 09 09 | 09 09 56 61 6c 69 64 61 | THEN...|..Valida| |00003690| 74 65 20 3a 3d 20 6b 56 | 61 6c 75 65 54 6f 6f 4c |te := kV|alueTooL| |000036a0| 61 72 67 65 3b 0d 09 09 | 45 4e 44 0d 09 09 45 4c |arge;...|END...EL| |000036b0| 53 45 20 42 45 47 49 4e | 0d 09 09 09 56 61 6c 69 |SE BEGIN|....Vali| |000036c0| 64 61 74 65 20 3a 3d 20 | 6b 4e 6f 6e 4e 75 6d 65 |date := |kNonNume| |000036d0| 72 69 63 43 68 61 72 61 | 63 74 65 72 73 3b 0d 09 |ricChara|cters;..| |000036e0| 09 45 4e 44 3b 0d 09 45 | 4e 44 3b 0d 00 00 00 00 |.END;..E|ND;.....| |000036f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00003700| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 1e |.......L|...L....| |00003710| 55 4e 43 54 49 4f 4e 20 | 46 6f 72 63 65 45 6e 76 |UNCTION |ForceEnv| |00003720| 69 72 6f 6e 73 28 6d 69 | 6e 69 6d 75 6d 53 79 73 |irons(mi|nimumSys| |00003730| 13 55 54 72 61 6e 73 66 | 6f 72 6d 65 72 2e 69 6e |.UTransf|ormer.in| |00003740| 63 31 2e 70 02 00 00 00 | 54 45 58 54 4d 50 53 20 |c1.p....|TEXTMPS | |00003750| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 28 00 c0 |..TEXTMP|S ...(..| |00003760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00003770| 00 00 a1 4b 04 00 00 00 | 36 6c 00 00 01 6a 09 09 |...K....|6l...j..| |00003780| 09 09 09 20 20 6e 65 65 | 64 73 43 6f 6c 6f 72 51 |... nee|dsColorQ| |00003790| 44 3a 20 42 4f 4f 4c 45 | 41 4e 3b 0d 09 09 09 09 |D: BOOLE|AN;.....| |000037a0| 09 09 09 20 20 6d 69 6e | 69 6d 75 6d 41 54 44 72 |... min|imumATDr| |000037b0| 76 72 56 65 72 73 4e 75 | 6d 3a 20 49 4e 54 45 47 |vrVersNu|m: INTEG| |000037c0| 45 52 29 3a 20 42 4f 4f | 4c 45 41 4e 3b 0d 0d 09 |ER): BOO|LEAN;...| |000037d0| 56 41 52 0d 09 09 65 72 | 72 6f 72 3a 20 4f 53 45 |VAR...er|ror: OSE| |000037e0| 72 72 3b 0d 09 09 74 68 | 65 57 6f 72 6c 64 3a 20 |rr;...th|eWorld: | |000037f0| 53 79 73 45 6e 76 52 65 | 63 3b 0d 0d 09 42 45 47 |SysEnvRe|c;...BEG| |00003800| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....| |00003810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00003820| 00 00 00 00 00 00 00 06 | 00 04 00 2a 00 03 01 d8 |........|...*....| |00003830| 02 79 00 2a 00 05 01 bf | 02 5f a1 4b 04 00 00 00 |.y.*....|._.K....| |00003840| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........| |00003850| 00 00 01 4c 00 00 00 4c | 00 00 00 1e 00 25 27 dc |...L...L|.....%'.| |00003860| 09 30 00 00 00 1c 00 1e | ff ff 00 00 00 00 00 00 |.0......|........| |00003870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| +--------+-------------------------+-------------------------+--------+--------+